home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
program
/
lgavb25.zip
/
VB.ZIP
/
LGEXAMP.FRM
< prev
next >
Wrap
Text File
|
1996-01-17
|
22KB
|
733 lines
VERSION 2.00
Begin Form Examples
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Examples"
ClientHeight = 5205
ClientLeft = 1770
ClientTop = 2700
ClientWidth = 9105
Height = 5610
Left = 1710
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 347
ScaleMode = 3 'Pixel
ScaleWidth = 607
Top = 2355
Width = 9225
Begin LGAUGE LGauge5
AutoRedraw = 0 'False
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 3
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 4
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3345
Left = 3900
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 3
ScaleID = 2
Scales = 3
TabIndex = 16
TicID = 5
Tics = 6
Top = 90
Width = 1785
ZLoad = LGEXAMP.FRX:0000
End
Begin LGAUGE LGauge4
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 2 ' 2 - Inset
BevelOuter = 1 ' 1 - Raised
BevelWidth = 2
BorderWidth = 6
CaptionID = 0
Captions = 2
FontID = 0
Height = 1095
Left = 3930
Orientation = 0 ' 0 - Horizontal
PointerID = 1
Pointers = 3
ScaleID = 0
Scales = 1
TabIndex = 15
TicID = 0
Tics = 2
Top = 3660
Width = 3615
ZLoad = LGEXAMP.FRX:0290
End
Begin Timer Timer2
Interval = 55
Left = 3420
Top = 4770
End
Begin LGAUGE LGauge3
AutoRedraw = 0 'False
AVersion = 2.501
BackColor = &H00FFFFFF&
BandID = 1
Bands = 3
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 1
FontID = 0
Height = 1065
Left = 90
Orientation = 0 ' 0 - Horizontal
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 14
TicID = 1
Tics = 2
Top = 3660
Width = 3705
ZLoad = LGEXAMP.FRX:04EC
End
Begin LGAUGE LGauge2
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 0
BevelInner = 0 ' 0 - None
BevelOuter = 1 ' 1 - Raised
BevelWidth = 2
BorderWidth = 2
CaptionID = 1
Captions = 2
FontID = 0
Height = 3345
Left = 5820
Orientation = 1 ' 1 - Vertical
PointerID = 1
Pointers = 2
ScaleID = 0
Scales = 1
TabIndex = 13
TicID = 2
Tics = 3
Top = 90
Width = 1725
ZLoad = LGEXAMP.FRX:0668
End
Begin Timer Timer1
Interval = 250
Left = 3840
Top = 4770
End
Begin CommandButton Command1
Caption = "&Reset"
Height = 345
Left = 7680
TabIndex = 12
Top = 4800
Width = 1245
End
Begin LGAUGE Therm
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00000000&
BandID = 0
Bands = 2
BevelInner = 0 ' 0 - None
BevelOuter = 2 ' 2 - Inset
BevelWidth = 2
BorderWidth = 0
CaptionID = 1
Captions = 2
FontID = 0
Height = 4695
Left = 7650
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 3
ScaleID = 0
Scales = 1
TabIndex = 11
TicID = 1
Tics = 2
Top = 60
Width = 1275
ZLoad = LGEXAMP.FRX:0C12
End
Begin Frame Frame1
BackColor = &H00C0C0C0&
Caption = "Mixer"
Height = 3405
Left = 90
TabIndex = 0
Top = 60
Width = 3705
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 9
Left = 3210
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 10
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:0E32
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 8
Left = 2940
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 9
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:1000
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 7
Left = 2670
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 8
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:11CE
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 6
Left = 2400
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 7
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:139C
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 5
Left = 2130
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 6
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:156A
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 4
Left = 1860
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 5
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:1738
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 3
Left = 1590
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 4
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:1906
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 2
Left = 1320
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 3
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:1AD4
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 1
Bands = 2
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 0
Left = 240
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 2
TicID = 1
Tics = 2
Top = 300
Width = 825
ZLoad = LGEXAMP.FRX:1CA2
End
Begin LGAUGE LGauge1
AutoRedraw = -1 'True
AVersion = 2.501
BackColor = &H00C0C0C0&
BandID = 0
Bands = 1
BevelInner = 0 ' 0 - None
BevelOuter = 0 ' 0 - None
BevelWidth = 2
BorderWidth = 2
CaptionID = 0
Captions = 0
FontID = 0
Height = 3000
Index = 1
Left = 1050
Orientation = 1 ' 1 - Vertical
PointerID = 0
Pointers = 1
ScaleID = 0
Scales = 1
TabIndex = 1
TicID = 0
Tics = 1
Top = 300
Width = 255
ZLoad = LGEXAMP.FRX:1EB6
End
End
Begin Label Label2
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Range Input"
Height = 285
Left = 4710
TabIndex = 18
Top = 4800
Width = 2205
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Meter"
Height = 285
Left = 870
TabIndex = 17
Top = 4800
Width = 2205
End
End
Sub Command1_Click ()
'get value of pointer(2)
therm.PointerID = 2
value = therm.PointerValue
'set value of pointer(0)
therm.PointerID = 0
therm.PointerValue = value
'set value of pointer(1)
therm.PointerID = 1
therm.PointerValue = value
End Sub
Sub LGauge4_Change ()
Select Case lGauge4.PointerID
Case 0
lGauge4.PointerID = 0
pstart = lGauge4.PointerStart
pstop = lGauge4.PointerStop
lGauge4.PointerID = 1
lGauge4.PointerValue = pstart
lGauge4.PointerID = 2
lGauge4.PointerValue = pstop
Case 1
lGauge4.PointerID = 1
pstart = lGauge4.PointerValue
lGauge4.PointerID = 0
If pstart > lGauge4.PointerStop - 5 Then
pstart = lGauge4.PointerStop - 5
End If
lGauge4.PointerStart = pstart
lGauge4.PointerID = 1
lGauge4.PointerValue = pstart
Case 2
lGauge4.PointerID = 2
pstop = lGauge4.PointerValue
lGauge4.PointerID = 0
If pstop < lGauge4.PointerStart + 5 Then
pstop = lGauge4.PointerStart + 5
End If
lGauge4.PointerStop = pstop
lGauge4.PointerID = 2
lGauge4.PointerValue = pstop
End Select
End Sub
Sub LGauge4_Slide ()
Select Case lGauge4.PointerID
Case 0
lGauge4.PointerID = 0
pstart = lGauge4.PointerStart
pstop = lGauge4.PointerStop
lGauge4.PointerID = 1
lGauge4.PointerValue = pstart
lGauge4.PointerID = 2
lGauge4.PointerValue = pstop
Case 1
lGauge4.PointerID = 1
pstart = lGauge4.PointerValue
lGauge4.PointerID = 0
If pstart > lGauge4.PointerStop - 5 Then
pstart = lGauge4.PointerStop - 5
End If
lGauge4.PointerStart = pstart
lGauge4.PointerID = 1
lGauge4.PointerValue = pstart
Case 2
lGauge4.PointerID = 2
pstop = lGauge4.PointerValue
lGauge4.PointerID = 0
If pstop < lGauge4.PointerStart + 5 Then
pstop = lGauge4.PointerStart + 5
End If
lGauge4.PointerStop = pstop
lGauge4.PointerID = 2
lGauge4.PointerValue = pstop
End Select
End Sub
Sub LGauge5_Change ()
Select Case lgauge5.PointerID
Case 0
lgauge5.PointerID = 0
a = lgauge5.PointerValue
lgauge5.PointerID = 1
b = lgauge5.PointerValue
lgauge5.PointerID = 2
lgauge5.PointerValue = a * b
Case 1
lgauge5.PointerID = 0
a = lgauge5.PointerValue
lgauge5.PointerID = 1
b = lgauge5.PointerValue
lgauge5.PointerID = 2
lgauge5.PointerValue = a * b
Case 2
lgauge5.PointerID = 2
a = lgauge5.PointerValue
lgauge5.PointerID = 0
lgauge5.PointerValue = Sqr(a)
lgauge5.PointerID = 1
lgauge5.PointerValue = Sqr(a)
End Select
lgauge5.Redraw = True
End Sub
Sub LGauge5_Slide ()
Select Case lgauge5.PointerID
Case 0
lgauge5.PointerID = 0
a = lgauge5.PointerValue
lgauge5.PointerID = 1
b = lgauge5.PointerValue
lgauge5.PointerID = 2
lgauge5.PointerValue = a * b
Case 1
lgauge5.PointerID = 0
a = lgauge5.PointerValue
lgauge5.PointerID = 1
b = lgauge5.PointerValue
lgauge5.PointerID = 2
lgauge5.PointerValue = a * b
Case 2
lgauge5.PointerID = 2
a = lgauge5.PointerValue
lgauge5.PointerID = 0
lgauge5.PointerValue = Sqr(a)
lgauge5.PointerID = 1
lgauge5.PointerValue = Sqr(a)
End Select
lgauge5.Redraw = True
End Sub
Sub therm_change ()
'get value of pointer(2)
therm.PointerID = 2
value = therm.PointerValue
'change band level
therm.BandID = 1
therm.BandStart = value
'check value of pointer(0)
therm.PointerID = 0
If therm.PointerValue > value Then
therm.PointerValue = value
End If
'check value of pointer(1)
therm.PointerID = 1
If therm.PointerValue < value Then
therm.PointerValue = value
End If
End Sub
Sub Therm_Slide ()
'get value of pointer(2)
therm.PointerID = 2
value = therm.PointerValue
'change band level
therm.BandID = 1
therm.BandStart = value
'check value of pointer(0)
therm.PointerID = 0
If therm.PointerValue > value Then
therm.PointerValue = value
End If
'check value of pointer(1)
therm.PointerID = 1
If therm.PointerValue < value Then
therm.PointerValue = value
End If
End Sub
Sub Timer1_Timer ()
therm.PointerID = 2
therm.PointerValue = therm.PointerValue + 6 * Rnd - 3
therm_change
End Sub
Sub Timer2_Timer ()
lgauge3.PointerValue = lgauge3.PointerValue + .5 * Rnd - .25
lgauge3.Redraw = True
lgauge5.PointerID = 0
lgauge5.PointerValue = lgauge5.PointerValue + 1 * Rnd - .5
a = lgauge5.PointerValue
lgauge5.PointerID = 1
lgauge5.PointerValue = lgauge5.PointerValue + 1 * Rnd - .5
b = lgauge5.PointerValue
lgauge5.PointerID = 2
lgauge5.PointerValue = a * b
lgauge5.Redraw = True
End Sub